home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Just Call Me Internet
/
Just Call Me Internet.iso
/
com
/
computer
/
casio_st
/
prog_fx
/
oisac2
/
l_s6310.txt
< prev
next >
Wrap
Text File
|
1994-03-01
|
220b
|
8 lines
5 ONERRORGOTO500
10 IFp=1 THENIFn=x THENs=1:f=1:GOTO80 ELSEs=0:f=0:GOTO80
20 q=1-p:f=q^n:s=f:z=p/q:y=n+1
30 FORi=1 TOx:f=f*z*(y-i)/i:s=s+f:NEXT
80 s=1-s+f:RETURN
500 IFERR=1 THENCLS:ONERRORGOTO0
510 sr=1:RESUME80